home *** CD-ROM | disk | FTP | other *** search
/ Totally for Newton 10 / PDA10.toast / mac / Packages / Programming / 2.x / More Routing / RemoveScript.f < prev    next >
Encoding:
Text File  |  1997-03-14  |  277 b   |  11 lines  |  [TEXT/R*ch]
  1. // Copyright (c) 1996-1997 Jeremy Wyld. All rights reserved.
  2. /* For best viewing pleasure set the font to: Courier 10pt with 3 space tabs */
  3.  
  4.  
  5. RemoveScript    := func(removeFrame) begin
  6.  
  7.     GetRoot().GetRouteScripts := GetRoot().oldRoute;
  8.     
  9.     RemoveSlot(GetRoot(), 'oldRoute);
  10.     
  11. end;